T:(IdType), tab:secret-table(T), keyv:(:( + Atom1)  data(T)), n:{0..||tab|| }.
st-atom(encrypt(tab;keyv);n) = st-atom(tab;n)  Atom1 

latex

Definitions	t  T, a < b, P  Q, False, A, A  B, P & Q, i  j < k, , {x:A| B(x)} , , {i..j}, Atom$n, left + right, data(T), x:A  B(x), f(a), t.1, if b then t else f fi , <a, b>, s = t, ||tab|| , x:AB(x), x:A. B(x), #$n, Void, Type, x.A(x), x. t(x), , True, i z j, b, b, , i <z j, T, P  Q, P  Q, Unit, f[x:=v], st-atom(tab;n), encrypt(tab;keyv), secret-table(T), Id, {T}, SQType(T), s ~ t, (i = j)
Lemmas	assert of bnot, not functionality wrt iff, assert of eq int, eq int wf, not wf, int seg wf, st-length wf, secret-table wf, Id wf, eqtt to assert, assert of lt int, iff transitivity, eqff to assert, squash wf, true wf, bnot of lt int, assert of le int, lt int wf, bool wf, bnot wf, assert wf, le int wf, pi1 wf, nat wf, data wf, le wf